home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / win_utl2 / pspa370a.zip / LESSON.BAT < prev    next >
DOS Batch File  |  1996-04-26  |  3KB  |  120 lines
  1.     @ECHO OFF
  2.     ECHO OFF
  3.  
  4.     REM  %1   LESSON number (e.g. 02, 03, 04)
  5.     REM  %2   EXAMPL number
  6.     REM  %3   XMPDAT number
  7.     REM  %4   XMPDAT extension
  8.     REM  %5   I = No input file browsing, J = No input/output file browsing
  9.     REM       L = Lookup, P = Plain, T = Trace, X = PEF, Z = Sound
  10.     REM
  11.     REM  NOTE: Numbers must be two digits long
  12.     REM
  13.     REM  If POMTEST is set to Y, goes back to BURN.BAT, not TUTORIAL.BAT.
  14.     REM  BURN.BAT is used for testing at Pinnacle, and is not included
  15.     REM  in the standard Parse-O-Matic package.
  16.  
  17.     IF (%5) == () START
  18.     IF (%5) == (Z) GOTO SOUND
  19.  
  20. :MAIN
  21.     MENU POM LSNMENU%5 1%2 /A
  22.     IF ERRORLEVEL 10 GOTO QUIT
  23.     IF ERRORLEVEL  8 GOTO SHOWLOG
  24.     IF ERRORLEVEL  6 GOTO TRACE
  25.     IF ERRORLEVEL  5 GOTO OUTPUT
  26.     IF ERRORLEVEL  4 GOTO RUN
  27.     IF ERRORLEVEL  3 GOTO SEEPOM
  28.     IF ERRORLEVEL  2 GOTO INPUT
  29.     IF ERRORLEVEL  1 GOTO DOCU
  30.  
  31. :TRACE
  32.     IF (%5) == (L) GOTO SHOWLOOK
  33.     IF (%5) == (X) GOTO SHOWPEF
  34.     IF EXIST POM.TRC GOTO EOCKTRC
  35.     SHOWSBX POM CKTRC
  36.     GOTO MAIN
  37. :EOCKTRC
  38.     CALL VIEW POM.TRC
  39.     GOTO MAIN
  40.  
  41. :SHOWLOG
  42.     CALL VIEW POMLOG.TXT
  43.     GOTO MAIN
  44. :SHOWLOOK
  45.     CALL VIEW EXAMPL%2.TBL
  46.     GOTO MAIN
  47. :SHOWPEF
  48.     CALL VIEW GENERIC.PEF
  49.     GOTO MAIN
  50.  
  51. :OUTPUT
  52.     IF EXIST EXAMPL%2.LST GOTO EOCKLST
  53.     SHOWSBX POM CKLST
  54.     GOTO MAIN
  55. :EOCKLST
  56.     CALL VIEW EXAMPL%2.LST
  57.     GOTO MAIN
  58.  
  59. :RUN
  60.     IF (%2) == (15) GOTO EXAMPL15
  61.     IF (%2) == (03) SET POM=HDRCNTR/TEST
  62.     IF (%2) == (04) SET POM=descrip/price
  63.     IF (%2) == (07) SET POM=ALL
  64.     POM EXAMPL%2.POM XMPDAT%3.%4 EXAMPL%2.LST
  65.     SET POM=
  66.     GOTO MAIN
  67. :EXAMPL15
  68.     POM EXAMPL15.POM XMPDAT0?.TXT EXAMPL15.LST
  69.     GOTO MAIN
  70.  
  71. :SEEPOM
  72.     CALL VIEW EXAMPL%2.POM
  73.     GOTO MAIN
  74.  
  75. :INPUT
  76.     IF NOT (%2) == (05) GOTO EOWARN5
  77.     SHOWSBX POM WARN5
  78. :EOWARN5
  79.     IF NOT (%4) == (DBF) GOTO EOWRNDBF
  80.     SHOWSBX POM WRNDBF
  81. :EOWRNDBF
  82.     IF NOT (%4) == (FRL) GOTO EOWRNFRL
  83.     SHOWSBX POM WRNFRL
  84. :EOWRNFRL
  85.     CALL VIEW XMPDAT%3.%4
  86.     GOTO MAIN
  87.  
  88. :DOCU
  89.     SHOWSBX POM EXAMPL%2.STX
  90.     GOTO MAIN
  91.  
  92. :SOUND
  93.     MENU POM LSNMENUZ 1%2 /A /X
  94.     IF ERRORLEVEL 10 GOTO QUIT
  95.     IF ERRORLEVEL  9 SOUND %1 %2 %3 %4 %5 WHOOP
  96.     IF ERRORLEVEL  8 SOUND %1 %2 %3 %4 %5 TRILL
  97.     IF ERRORLEVEL  7 SOUND %1 %2 %3 %4 %5 PIP
  98.     IF ERRORLEVEL  6 SOUND %1 %2 %3 %4 %5 HUH
  99.     IF ERRORLEVEL  5 SOUND %1 %2 %3 %4 %5 ERROR
  100.     IF ERRORLEVEL  4 SOUND %1 %2 %3 %4 %5 EDGE
  101.     IF ERRORLEVEL  3 SOUND %1 %2 %3 %4 %5 BUZZ
  102.     IF ERRORLEVEL  2 SOUND %1 %2 %3 %4 %5 BIP
  103.     IF ERRORLEVEL  1 SOUND %1 %2 %3 %4 %5 BEEP
  104.  
  105. :QUIT
  106.     IF (%POMTEST%) == (Y) GOTO DONE
  107.     IF EXIST EXAMPL%2.LST DEL EXAMPL%2.LST
  108.     IF EXIST EXAMPL%2.BAK DEL EXAMPL%2.BAK
  109.     IF NOT (%5) == (T) GOTO DONE
  110.     IF EXIST POM.TRC DEL POM.TRC
  111.  
  112. :DONE
  113.     IF NOT (%POMTEST%) == (Y) TUTORIAL %1
  114.     SET POMTEST=
  115.     MENU POM BURN 255
  116.     IF ERRORLEVEL 10 GOTO DONE2
  117.     BURN X %2
  118.  
  119. :DONE2
  120.